home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 130 / 130.d81 / endit 3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  459 b   |  22 lines
  1. 57990 rem endit #3  09/21/93
  2. 58000 data 11,4,3,14,6,0
  3. 58010 poke53280,05:poke53281,0:print"[147]"
  4. 58020 sp$="  [153]                                   "
  5. 58030 poke214,1:print
  6. 58040 forx=1to21:printsp$:nextx
  7. 58050 forll=1to25
  8. 58060 poke646,1:c=int(rnd(0)*27)+3:l=int(rnd(0)*19)+3
  9. 58070 poke214,l:print:printtab(c)"the end"
  10. 58080 nextll
  11. 58090 readc:ifc=0then58120
  12. 58100 forzz=1to100:nextzz
  13. 58110 poke53281,c:goto58050
  14. 58120 poke214,8:print:printtab(16)
  15. 58130 print"[158][206]  t   [205]"
  16. 58140 printtab(16)"   h    "
  17. 58150 printtab(16)" the    "
  18. 58160 printtab(16)"    end "
  19. 58170 printtab(16)"    n   "
  20. 58180 printtab(16)"[205]   d  [206]"
  21. 58190 print"";:end
  22.